home *** CD-ROM | disk | FTP | other *** search
- /*
- ** $VER: ToggleLVFont.rush 37.1 (28.10.93)
- **
- ** Toggle the listview font between two different font.
- **
- ** Written by Douglas Keller
- */
-
- if( address() == "REXX" ) then address "RUSH.1"
-
- options results
-
- 'getlistviewfont'
- parse var result fontname fontsize
-
- if fontname ~= "yyz.font" then
- 'setlistviewfont font=yyz.font size=11'
- else
- 'setlistviewfont font=thinpaz.font size=8'
-